| Filename | (eval 90)[/usr/share/perl5/Sub/Quote.pm:5] |
| Statements | Executed 29 statements in 197µs |
| Eval Invoked At | /usr/share/perl5/Sub/Quote.pm line 5 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 10 | 3 | 3 | 39µs | 2.83ms | Search::Elasticsearch::Role::Logger::_assert_log_handle |
| 1 | 1 | 1 | 12µs | 23µs | Sub::Quote::BEGIN@3.24 |
| 1 | 1 | 1 | 7µs | 7µs | Method::Generate::Accessor::BEGIN@6.25 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | { | ||||
| 2 | 2 | 2µs | my $_QUOTED = ${$_[1]->{"\$_QUOTED"}}; | ||
| 3 | 2 | 65µs | 2 | 33µs | # spent 23µs (12+10) within Sub::Quote::BEGIN@3.24 which was called:
# once (12µs+10µs) by Sub::Quote::_clean_eval at line 3 # spent 23µs making 1 call to Sub::Quote::BEGIN@3.24
# spent 10µs making 1 call to warnings::unimport |
| 4 | # spent 2.83ms (39µs+2.80) within Search::Elasticsearch::Role::Logger::_assert_log_handle which was called 10 times, avg 283µs/call:
# 5 times (24µs+2.49ms) by Search::Elasticsearch::Role::Logger::info or Search::Elasticsearch::Role::Logger::infof at line 53 of Sub/Defer.pm, avg 503µs/call
# 4 times (13µs+304µs) by Search::Elasticsearch::Role::Logger::infof at line 12 of (eval 89)[Sub/Quote.pm:5], avg 79µs/call
# once (1µs+0s) by Search::Elasticsearch::Role::Logger::info at line 12 of (eval 93)[Sub/Quote.pm:5] | ||||
| 5 | package Method::Generate::Accessor; | ||||
| 6 | # spent 7µs within Method::Generate::Accessor::BEGIN@6.25 which was called:
# once (7µs+0s) by Sub::Quote::_clean_eval at line 11 | ||||
| 7 | 1 | 1µs | $^H = "1762"; | ||
| 8 | 1 | 400ns | ${^WARNING_BITS} = "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\003"; | ||
| 9 | 1 | 6µs | %^H = ( | ||
| 10 | ); | ||||
| 11 | 1 | 87µs | 1 | 7µs | } # spent 7µs making 1 call to Method::Generate::Accessor::BEGIN@6.25 |
| 12 | 5 | 13µs | do { | ||
| 13 | 5 | 11µs | 1 | 2.49ms | my $val = exists $_[0]->{"log_handle"} ? # spent 2.49ms making 1 call to Search::Elasticsearch::Logger::LogAny::_build_log_handle |
| 14 | $_[0]->{"log_handle"} | ||||
| 15 | : ($_[0]->{"log_handle"} = $_[0]->_build_log_handle) | ||||
| 16 | ; | ||||
| 17 | 5 | 4µs | unless (exists $_[0]->{"log_handle"}) { | ||
| 18 | die "Attempted to access 'log_handle' but it is not set"; | ||||
| 19 | } | ||||
| 20 | 5 | 2µs | $val; | ||
| 21 | } | ||||
| 22 | } | ||||
| 23 | 1 | 1µs | $_QUOTED->[3] = \&Search::Elasticsearch::Role::Logger::_assert_log_handle | ||
| 24 | } | ||||
| 25 | 1 | 4µs | 1; | ||
| 26 | |||||
| 27 | ; |